home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / The World of Computer Software.iso / vsms111.zip / FINGER.BAT < prev    next >
DOS Batch File  |  1992-12-12  |  2KB  |  49 lines
  1. @ECHO OFF
  2. IF %DOSTYPE%.==. GOTO KRAD
  3. if %1.==plan. goto plan
  4. IF %1.==remote. goto remote
  5. if %1.==console. goto console
  6. if %1.==. goto finger
  7. ECHO Sorry, user %1 unknown. Valid users are console, remote.
  8. ECHO finger plan to build a new plan file for you.
  9. ECHO You must use lowercase.
  10. GOTO END
  11. :plan
  12. ECHO Building new "plan" for %user%
  13. IF EXIST \MXDOS\%USER%\PLAN DEL \MXDOS\%USER%\PLAN
  14. ECHO Type I to start message, Control-Z on a blank line
  15. ECHO and E to end message.
  16. EDLIN \MXDOS\%USER%\PLAN
  17. echo New plan done.
  18. goto end
  19. :finger
  20. ECHO Login       Name              TTY Where
  21. ECHO console   Console User        con console
  22. ECHO remote    Remote User          p0 :0.0
  23. goto end
  24. :console
  25. ECHO Login name: console                     In real life: Console User
  26. ECHO Directory: /mxdos/console               Shell: /command.com
  27. ECHO On since bootup on console 
  28. IF EXIST \MXDOS\MAIL\CONSOLE.BOX ECHO New mail
  29. IF NOT EXIST \MXDOS\MAIL\CONSOLE.BOX ECHO No mail
  30. IF NOT EXIST \MXDOS\console\PLAN ECHO No plan.
  31. if not exist \mxdos\console\plan goto end
  32. IF EXIST \MXDOS\console\PLAN ECHO Plan:
  33. IF EXIST \MXDOS\console\PLAN MORE<\MXDOS\console\PLAN
  34. GOTO END
  35. :remote
  36. ECHO Login name: remote                      In real life: Remote User
  37. ECHO Directory: /mxdos/remote                Shell: /command.com
  38. ECHO On since bootup on ttyp0
  39. IF EXIST \MXDOS\MAIL\REMOTE.BOX ECHO New mail
  40. IF NOT EXIST \MXDOS\MAIL\REMOTE.BOX ECHO No mail
  41. IF NOT EXIST \MXDOS\REMOTE\PLAN ECHO No plan.
  42. if not exist \mxdos\remote\plan goto end
  43. IF EXIST \MXDOS\REMOTE\PLAN ECHO Plan:
  44. IF EXIST \MXDOS\REMOTE\PLAN MORE<\MXDOS\REMOTE\PLAN
  45. GOTO END
  46. :KRAD
  47. ECHO You are not running under MX-Multiuser DOS.
  48. :END
  49.